Jak zabranit zvukovemu vystupu, kdyz uzivatel zmackne Enter v TEdit

Otázka od: Tomas Krejzek

4. 11. 2004 14:27

Ahoj odchytavam stisk klavesy Enter v TEdit a beru to jako potvrzeni
hodnoty, vse funguje bez problemu, jen se vzdycky ozve takovy "tuk" jako
systemovy zvuk, netusite nekdo jak udelat aby ta aplikace byla sticha???
Dik moc, Tom

Odpovedá: Vaclav Sazima

4. 11. 2004 14:56

Ve FormKeyPress patricneho formu :
if Key = ^M then Key := #0;

Vaclav Sazima

Tomas Krejzek wrote:

> Ahoj odchytavam stisk klavesy Enter v TEdit a beru to jako potvrzeni
> hodnoty, vse funguje bez problemu, jen se vzdycky ozve takovy "tuk" jako
> systemovy zvuk, netusite nekdo jak udelat aby ta aplikace byla sticha???
> Dik moc, Tom

Odpovedá: Ing. Jan Dvorak

4. 11. 2004 15:36

Delam to takto:

procedure TMyForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 Then
    begin
      SelectNext(ActiveControl as TWinControl, True, True);
      Key:= #0;
    end;
end;

MyForm musi mit nastaveny KeyPreview na true. Osetreni editovaneho textu v
Tedit provadim v udalosti OnExit.
Jan Dvorak

>
> Ahoj odchytavam stisk klavesy Enter v TEdit a beru to jako potvrzeni
> hodnoty, vse funguje bez problemu, jen se vzdycky ozve takovy
> "tuk" jako
> systemovy zvuk, netusite nekdo jak udelat aby ta aplikace
> byla sticha???
> Dik moc, Tom
>
>
>
>